MacWorld 1997 September/Macworld (1997-09).dmg/Shareware World/Comms & Internet/SB114/Plugins/poll

Text File | 1997-05-19 | 1.1 KB | 54 lines | [TEXT/ttxt]

'Poll Plugin 1.0.1
'© John Bafford, 1996-1997
'
*COMMAND vote -1 1
*GLOBAL int yes 0
*GLOBAL int no 0
*GLOBAL int total 0
*ENDCONF

@ENTRY vote
  @IF "YES" = "$ARG1" yes
  @IF "NO" = "$ARG1" no
  @IF "RESULTS" = "$ARG1" results
  @IF "RESET" = "$ARG1" reset
  @IF "HELP" = '$ARG1" help
  NOTICE $NICK Illegal Vote command: "$ARG1"
@END

@LABEL help
  NOTICE $NICK Valid vote commands: YES, NO, RESULTS, RESET, HELP
@END

@LABEL yes
  @ADDONE total
  @ADDONE yes
  NOTICE $NICK Your vote (Yes) has been added. Thank you for participating.
@END

@LABEL no
  @ADDONE total
  @ADDONE no
  NOTICE $NICK Your vote (No) has been added. Thank you for participating.
@END

@LABEL results
  @IF ACCESS >= 900 results.good
    NOTICE $NICK You don't have access to view the results.
@END

@LABEL results.good
  NOTICE $NICK Voting results: Yes: $GLOBAL:yes., No: $GLOBAL:no., Total: $GLOBAL:total..
@END

@LABEL reset
  @IF ACCESS >= 900 reset.good
  NOTICE $NICK You don't have access to view the results.
@END

@LABEL reset.good
  @SET yes 0
  @SET no 0
  @SET total 0
  NOTICE $NICK Votes have been reset.
@END